home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
clean
/
sun3.lha
/
Sun3
/
deltaR.dcl
< prev
next >
Wrap
Text File
|
1992-08-07
|
1KB
|
39 lines
SYSTEM MODULE deltaR;
== Version 0.8
==
== Real operations
==
RULE
:: +R !REAL !REAL -> REAL; == increment arg1 with arg2
:: -R !REAL !REAL -> REAL; == decrement arg1 with arg2
:: *R !REAL !REAL -> REAL; == multiply arg1 with arg2
:: /R !REAL !REAL -> REAL; == divide arg1 by arg2
:: =R !REAL !REAL -> BOOL; == true if arg1 equals arg2
:: <>R !REAL !REAL -> BOOL; == true if arg1 not equals arg2
:: <R !REAL !REAL -> BOOL; == true if arg1 is less the arg2
:: >R !REAL !REAL -> BOOL; == true if arg1 is more then arg2
:: <=R !REAL !REAL -> BOOL; == true if arg1 is less or equal to arg2
:: >=R !REAL !REAL -> BOOL; == true if arg1 is more or equal to arg2
:: SIN !REAL -> REAL; == sinus of arg1
:: TAN !REAL -> REAL; == tangens of arg1
:: COS !REAL -> REAL; == cosinus of arg1
:: ASIN !REAL -> REAL; == arc sinus of arg1
:: ACOS !REAL -> REAL; == arc cosinus of arg1
:: ATAN !REAL -> REAL; == arc tangus of arg1
:: LN !REAL -> REAL; == logarithm base e of arg1
:: LOG10 !REAL -> REAL; == logarithm base 10 of arg1
:: EXP !REAL -> REAL; == e to the arg1'th power
:: POW !REAL !REAL -> REAL; == arg1 to the arg2'th power
:: SQRT !REAL -> REAL; == square root of arg1
:: ENTIER !REAL -> INT; == entier of arg1
:: RTOI !REAL -> INT; == round arg1
:: RTOS !REAL -> STRING; == transform arg1 to STRING